program prog2;

uses crt;

type

alumnos = RECORD

clave:integer;
nombre:string[30];
edad:integer;
status:char;

end;

var

alumno:alumnos;

archivo: file of alumnos;

BEGIN


(* creando y abriendo el archivo *)

assign(archivo,'c:\prog\alumnos.dat');

reset(archivo);

(* ciclo de lectura y despliegue registro *)

while not(EOF(archivo)) do

begin

read(archivo,alumno);

(* revisando status registro *)
write('clave ');
writeln(alumno.clave:2);

write('nombre ');
writeln(alumno.nombre);

write('edad ');
writeln(alumno.edad);

write('status ');
writeln(alumno.status);

if alumno.status = 'A' then

begin

write('clave : ');writeln(alumno.clave);

write('nombre : ');writeln(alumno.nombre);

write('edad : ');writeln(alumno.edad);

write('<enter> para continuar ');readln;;

end;

end;

(* cerrando archivo *)

close(archivo);


END.
